home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / zcomm1.arc / PHODIR.T < prev    next >
Text File  |  1986-10-22  |  15KB  |  442 lines
  1. rev 10-14-86 for ZCOMM
  2. ak    lput "\r\n\E[1;5mType space to Continue\E[m"; if y
  3.     lput "\E[2A\E[2K"
  4. busy    speed 1200 putw "ATM0H1\r"
  5. reset    speed 1200; putw "ATZ\r";pat 1 OK; wait -f3
  6. twx    if twxout speed 1200 %s8 f -qxh twxout;o
  7.     else echo " No file to Send. "
  8. tryd    %telno
  9. dial    pat; pat 0 K\r\n; ena -d
  10.     if c bye
  11.     put "ATZ\r"; wait -f3; if !0 wait -f3
  12.     if !0 echo "A Maxwell Perhaps?"; sleep 60; put "ATZ\r"; wait -f5
  13.     if !0 put "AT E1 Q0 V1\r"; wait -f3
  14.     if "!0&&S>1201" speed 1200 put "ATZ\r"; wait -f3; if !0 wait -f3
  15.     if "!0&&S>301" speed 300 put "ATZ\r"; wait -f3; if !0 wait -f3
  16.     if !0 put "AT E1 Q0 V1\r"; wait -f3
  17.     if !0 echo "No response From MODEM"; pat; fail
  18.     sleep 4
  19.     put "ATS6=5 S8=4 S0=0\r" wait -f2
  20.     pat 1 CONNECT; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  21.     pat 0c ";"
  22.     dis -d
  23.     put %mprefix; putw %telno\r
  24.     if 0 wait -f30; echo "Hit SPACE to Hang Up"; return
  25.     wait -f60
  26.     while "4&&!L>3" wait -f20
  27.     if 1 pat; return
  28.     pat; fail
  29. askspd    lput "1200 baud?"; if y sp 1200; return
  30.     lput "2400 baud?"; if y sp 2400; return
  31.     lput "4800 baud?"; if y sp 4800; return
  32.     lput "9600 baud?"; if y sp 9600; return
  33.     lput "19200 baud?"; if y sp 19200; return
  34.     lput "300 baud then."; sp 300; return
  35. callcis    speed 1200
  36.     if %s3 sets telno %s3; gosub tryd; if c sleep 20 put \3 return
  37.     speed 300
  38.     if %s2 sets telno %s2; gosub tryd; if c sleep 20 put \3 return
  39.     sp 1200
  40.     if %s5 sets telno %s5; gosub tryd; if c gosub tym12; return
  41.     if %s4 sets telno %s4; gosub tryd; if c gosub tel12; return
  42.     echo "Sorry, none of the numbers are working right now"
  43.     gosub ak
  44.     fail
  45. tel12    pat 1 TERMINAL
  46.     while "c&&!1" put "\r" wait -f2
  47.     if !c fail
  48.     pat 1 @
  49.     put "D1\r"; wait -f40
  50.     if !c fail
  51.     if !1 o fail
  52.     put "C 202202\r"
  53.     return
  54. tym24    wait -f5
  55.     in !c fail
  56.     put A pat 1 "log in"; wait
  57.     put "%s1\r"; return
  58. tym12    pat 1 x; wait
  59.     if !c fail
  60.     put A pat 1 "log in"; wait
  61.     if !c fail
  62.     put "%s1\r"; return
  63. setup    echo "Running ..."
  64.     if dg>10000 return
  65.     if da>1 goto setu1
  66.     if !flocal.t gosub sinit; gosub .local.t; goto setu1
  67.     gosub .local.t
  68.     echo "Hello %s6 %s7."
  69.     lput "Has your phone number info changed since the\r\n"
  70.     lput "last time you entered your name (y/n) ?"
  71.     if y del local.t; gosub sinit; gosub .local.t
  72. setu1:    set mcommand "gosub dial"; set s9 ""
  73.     if du goto setu3
  74.     set s9 "1"
  75.     pd1; pz480
  76.     pe0; lput "Checking COM1 ..."; port 1; if e pe0; port 2; set s9 "2"; goto cm1
  77.     if c echo " I Detect CARRIER on COM1. "; gosub carrier; if is9,x goto setu3
  78.     if is9,y goto cm2
  79.     sp 300 mput "ATZ\r" sleep 4 pe0; if !m put "AT E1 Q0 V1\r"; sleep 6; pe0
  80.     if m goto setu3
  81.     if !m pe0; lput "Checking COM2 ..."; port 2; set s9 "2";if e goto cm3
  82. cm1:    if c echo " I Detect CARRIER on COM2. "; gosub carrier; if %s9 goto setu3
  83. cm2:    if !c sp 300 mput "ATZ\r" sleep 4; if !m put "AT E1 Q0 V1\r"; sleep 6
  84.     pe0
  85. cm3:    if "!c&&!m||e" echo "WARNING: No Modem detected on Port 1 or 2!"; port 1
  86. setu3:    pe0
  87.     set f3 @rb;  set f4 "@kermit rb"
  88.     set f5 "@accept s1 Send-File(s): sz %s1"
  89.     set f6 "@accept s2 Receive-File: rc %s2"
  90.     set f7 "@accept s1 Send-File: sx %s1"
  91.     set f8 "\PXXXXX"
  92.     set f11 "@find speed %phones"
  93.     set f12 "@accept s1 Name:; find \n%s1 %phones"
  94.     set f13 "@find \\\;\r %phones"
  95.     set f14 "@speed 1200 putw ATH\r"
  96.     if fyamhelp.t set helpfile "yamhelp.t"; set f10 "@help"
  97.     if f/zmanh.hlp set helpfile "@yhp /zmanh.hlp"; set f10 "@help"
  98.     if fzmanh.hlp set helpfile "@yhp zmanh.hlp"; set f10 "@help"
  99.     if da>1 return
  100.     : return : uncomment this line to remove automatic menu startup
  101.     cls; goto cmdch
  102. demo    cls
  103.     goto cmdch
  104. badcmd: cls echo "Unknown Command"
  105. cmdch:    echo " ZCOMM Beginner's Menu "
  106.     display nlmode nooverstrike
  107.     lput "\nc  Compuserve Online Demo (requires modem)\n"
  108.     lput "d  Dial telephone number and connect\n"
  109.     lput "f  Flash-up HELP Processor\n"
  110.     lput "g  Go Local (Direct Connection)\n"
  111.     lput "h  Host Operation demo (dial-in)\n"
  112.     lput "l  List file names in current directory\n"
  113.     lput "n  Newest files listed first\n"
  114.     lput "o  Display Ordering Information\n"
  115.     lput "r  Review (circular buffer search/cut/paste) demo\n"
  116.     lput "t  Call Telegodzilla (Omen's Software Downloading System)\n"
  117.     lput "u  Utility command demo\n"
  118.     lput "v  Voice call to Omen Technology (requires modem)\n"
  119.     lput "x  eXit to DOS\n"
  120.     lput "z  exit to ZCOMM command prompt\n\n"
  121. choos:    acceptl1 s1 "Please enter your menu choice "
  122.     if is1,c call cidemo; cls; goto cmdch
  123.     if is1,d call xdnum; cls; goto cmdch
  124.     if is1,f help; goto cmdch
  125.     if is1,g call glocal; cls; goto cmdch
  126.     if is1,h gosub host; host; return
  127.     if is1,l dirr; goto choos
  128.     if is1,n dirt; goto choos
  129.     if is1,o gosub order; goto choos
  130.     if is1,r kill; gosub review; goto choos
  131.     if is1,t call telegodzilla; cls; goto cmdch
  132.     if is1,u gosub udemo; cls; goto cmdch
  133.     if is1,v call caf; if y||df putw "ATZ\r"; goto choos
  134.     if is1,x x
  135.     if is1,y goto quitt
  136.     if is1,z goto quitt
  137.     goto badcmd
  138. udemo:    cls;  echo "Enabling debug output to show the commands"; pv4
  139.     echo "The find command searches files for a string, case insensitive"
  140.     find zcom *.t
  141.     gosub ak
  142.     echo "The sum command calculates file checksum compatible with Unix"
  143.     sum local.t
  144.     gosub ak
  145.     echo "Word Count: lines, words, printing characters, and characters"
  146.     echo "The count of printing characters predicts ribbon usage!"
  147.     wc *.t
  148.     gosub ak
  149.     echo "The chek command calculates a 16 bit file CRC useful for comparing"
  150.     echo "Multiple copies of the same file for accurcacy and identity."
  151.     chek local.t
  152.     gosub ak
  153.     cls
  154.     echo "Paced upload transmission demonstration"
  155.     echo "File Upload pacing is used with bulletin boards, etc."
  156.     echo "Note the EXTRA delay at the end of each line"
  157.     display nooverstrike
  158.     open %phones
  159.     echo "Let's just send a little bit from the END of the file"
  160.     seek -120
  161.     ph2; o; t -adhxtp
  162.     close; pv0; dis -dah
  163.     gosub ak
  164.     return
  165.  
  166. 73    speed 1200 %l-603-924-9809 t
  167. amrad-bbs    speed 300 %l-703-734-1387 t
  168. amsat-bbs    speed 300 %l-512-852-8194 t
  169. caf        speed 1200 %s8-3406\;
  170. cidemo    speed 1200 set s1 "cis02"; gosub callcis
  171.     pat 1 ID:
  172.     pat 4 "LOGUTL"
  173.     pat 5 "DISCONNECTED"
  174.     pat 2 "please log in: "
  175.     wait
  176.     put 77770,101\r pat 1 assword:; wait
  177.     echo "Sending PASSWORD"; put FREE-DEMO\r
  178.     pat 0 OK; pat 3 tinue; wait
  179.     if "5||2" echo " Login may be possible through a Compuserve Node "
  180.     if "1||4||5||2" echo " Try Again Later "; o; return
  181.     pat;
  182.     pat 1 "menu.!"
  183.     pat 2 "menu!"
  184.     pat 3 "choices.!"
  185.     pat 4 "continue!"
  186.     pat 5 "\n!"
  187.     put \25s\r
  188.     if !fcdemo create cdemo
  189.     wait put "\025g em-49\r"
  190.     wait put \025s\r
  191.     wait put \025off\r
  192.     echo "Good Bye Cruel World"
  193.     close
  194.     o
  195.     gosub review
  196.     return
  197. review    if !fcdemo goto revv1
  198.     kill; read cdemo
  199.     del cut
  200.     display nlmode
  201.     <revv
  202.     review
  203.     wc cut;chek cut;sum cut
  204.     display nonlmode
  205.     return
  206. revv1:    echo "Please run the Compuserve Demo to create the \"cdemo\" file"
  207.     return
  208. cis        speed 1200 nolog 232-4026 sleep 20     : Compuserve via CIS
  209.     put \3
  210. cis:    pat 1 ID:; wait
  211.     put 70001,0001\r pat 1 assword:; wait; put "wrongo\r"
  212.     pat 1 OK; pat 2 Plex!; pat 3 "\nFunction: "; pat 4 "!"
  213.     wait
  214.     if n o return
  215.     pat; t -fcs!p
  216.     return
  217. cis24    speed 2400 nolog 222-2151    : Compuserve via Tymnet 2400 bps
  218.     pat 1i x; wait -f5 put A pat 1 "log in"; wait
  219.     put "cis02;"; goto cis
  220. cis02    speed 1200 nolog 222-0900    : Compuserve via Tymnet
  221.     pat 1i x; wait put A pat 1 "log in"; wait
  222.     put "\030cis02;" goto cis
  223. cisdat    speed 1200 %l-604-687-7144    : Compuserve via Datapac
  224.     sleep 25
  225.     ena -t
  226.     put "..\r"
  227.     pat 1 "DATAPAC"
  228.     wait -f4
  229.     put "P 29400138\r"
  230.     dis -t
  231.     pat 1 "Name:"
  232.     wait -f20
  233.     put "cis\r"
  234.     goto cis
  235. cistel    speed 1200 295-3028        : Compuserve via Telenet
  236.     on !c o abort
  237.     pat 1 TERMINAL
  238.     while !1 put "\r" wait -f1
  239.     pat 1 @
  240.     put "D1\r"; wait -f4
  241.     if !1 o abort
  242.     put "C 202202\r"
  243.     goto cis
  244.  
  245. navobsy        speed 1200 %l-202-653-1079 t -u7e
  246.     echo " type @tco for list of commands "
  247. nbs        speed 300 %l-301-948-5717 t
  248. nbs2        speed 300 %l-301-948-5718 t
  249. oem        speed 1200 %s8 pat 1i \5;wait;put \1;sb;o
  250. omen-tech    speed 1200 %s8 t
  251. pl24    speed 2400 241-0496 goto pl1    : People-Link via Telenet
  252. pl    speed 1200 295-3028        : People-Link via Telenet
  253. pl1:    patt; patt 1 TERMINAL
  254.     while !1 put "\r" wait -f1
  255.     pf40 patt 1 @
  256.     put "D1\r"; wait
  257.     if !1 o abort
  258.     put "set 0:33,64:1\r"; wait -f1
  259.     put "c 312 63\r"
  260.     pat 1 "PRESS <RETURN>:";  wait -f15;  put "\r"
  261.     pat 1 "ID:";  wait -f15;  put "myacct\r"
  262.     pat 1 "PASSWORD:";  wait -f15;  put "nothis\r"
  263.     set f9 "/next\r"; set f10 "/dlo;fil;xmo;\r\r"
  264.     t
  265. source1200    speed 1200 295-3028    : The Source via Telenet
  266. sourcex:    on !c o abort
  267.     set  f7 "upi n b "
  268.     set  f9 "upi n g "
  269.     set f8 ",-,*,rb"
  270.     set f10 ",-,*,sb"
  271.     pf3
  272.     patt; patt 1 TERMINAL
  273.     while "L<5&&!1" put "\r" wait -f1
  274.     if !1 off
  275.     pf40 patt 1 @
  276.     put "D1\r"; wait
  277.     if !1 o abort
  278.     put "c 30124\r"
  279.     kill; patt; patt 1 SOURCE; wait
  280.     if !1 o abort
  281.     putw "id ABC123 notthis\r"
  282.     patt; pat 10c "-More-" "@put \r lput \r\E[A\E[2M\E[A"
  283.     pf9999; wait
  284. source300    speed 300 295-3028    : The Source via Telenet
  285.     goto sourcex
  286. telegodzilla    speed 1200 %s8-3746
  287.     ena -Z; display overstrike; cls; pat 1 \n
  288.     while "!1&&c&&L<10" put \r wait -f1
  289.     if !1||!c echo "Access Failed"; o; return
  290.     pat 1 "ease:"; wait -f2
  291.     put "\b\b%s6 %s7\r"; pat 1 ect;wait -f2
  292.     put "y"; pat 1 "-Host"; wait -f5
  293.     if !forder putw "\b\bsz demo/order\r"
  294.     set s0 "TeleGodzilla"
  295. tele1:    echo "You are now Online to \42%s0\42."
  296.     echo "Type F1 when done."; t -Z!vn
  297.     lput "\Ez Do you wish to disconnect (y/n) "
  298.     if y echo " Disconnecting ... ";put \25\4; wait -f2; o; return
  299.     echo " **************  Rewinding the Capture Buffer  ************** "
  300.     rewind; wait -vf1; goto tele1
  301.  
  302. host    echo " host " speed 1200
  303.     set welcome welcome.txt
  304.     set password Ritchie
  305.     set challenge challeng.txt
  306.     set unrestrict "CustomerSupport"    : WARNING - CHANGE THIS!!
  307.     set xhelpfile xyamhelp.t
  308.     set private private; set messages messages
  309.     set emdir "."; set twxfile twx;
  310.     set call2 ATZ\r\336\336ATM1X1S0=1\r\336ATM1X1S0=1\r\336\336
  311.     set outahost "@pk512; putw ATM0H1\r"
  312.     set baudstr "@gosub baud"
  313.     pc40
  314.     return
  315.  
  316. sinit    pv0;  cls
  317.     echo "    Initial setup for ZCOMM with ZMODEM, WXMODEM, etc.        "
  318.     echo "             I need some phone information.                    "
  319.     accept s6 " Your \E[1mFirst\E[0m name please "
  320.     accept s7 " Your Last name please "
  321.     set s8 ""
  322. getac:    accept s8 " Please enter your 3 digit telephone area code, plus <Enter> "
  323.     if !%s8 goto getac
  324.     echo "I need local access numbers for the Compuserve Information Service."
  325.     if dd lput "Shall I search for them (y/n) ?"
  326.     if dd if y echo "300/1200 bps Access Numbers"; find "%s8 " cisnodes.lst
  327.     echo "Just hit <Enter> if your modem doesn't have the indicated speed."
  328.     accept s3 " Please enter the 1200 baud local Compuserve Node phone Number "
  329.     accept s2 " Please enter the 300 baud local Compuserve Node phone Number "
  330.     accept s5 " Please enter the 1200 baud local Tymnet Node phone Number "
  331.     accept s4 " Please enter the 1200 baud local Telenet Node phone Number "
  332.     echo "Creating disk file 'LOCAL.T' for future reference"
  333.     kill; pv0; create -y local.t
  334.     echof " :Area Code is \042%s8\042"
  335.     if %s2 echof " set s2 \042%s2\042"
  336.     if %s3 echof " set s3 \042%s3\042"
  337.     if %s4 echof " set s4 \042%s4\042"
  338.     if %s5 echof " set s5 \042%s5\042"
  339.     if %s6 echof " set s6 \042%s6\042"
  340.     if %s7 echof " set s7 \042%s7\042"
  341.     echof " set s8 1-503-621"
  342.     lput "\EzAre you using a Color Monitor? (y/n) "
  343.     if y echof " if dd&&dc ps4 pn3 pr97 pu6"; ps4 pn3 pr97 pu6
  344.     lput "\r\nIs your display adapter flicker/snow free? (y/n) "
  345.     if y echof " if dd&&dc display warpdrive"; display warpdrive
  346.     close; echo "file created"
  347.     if dd echo "Searching for directory entries in your area code"
  348.     if dd find l-%s8- %phones
  349.     if dd echo "Please change the lines listed above to suit your area."
  350.     if !is8,503 return
  351.     kill; pv0; create -+ local.t
  352.     lput "Is 621-3746 (Burlington Exchange) a local call for you ? (y/n) "
  353.     if y echof " set s8 621"
  354.     else echof " set s8 1-621"
  355.     close; return
  356. quitt:    echo "   Type 'call demo' for demonstration   "
  357.     if !%f10 quit
  358.     echo "       Press F10 for Flash-Up Help      "
  359.     abort
  360. carrier    lput " Type \ESy\Eq if the modem on port \ET%s9\Eq is now connected to a computer: "
  361.     if y echo "OK, just checking"; sleep 30; set s9 "x"; return
  362.     lput " Is the Modem connected to Port 2 ? "
  363.     if y port 2; if !c lput "\r\n"; set s9 "y"; return
  364.     lput "\r\n\nAlthough ZCOMM can operarte with the modem's\r\n"
  365.     lput "Carrier Detect signal always on, this script (and most other\r\n"
  366.     lput "scripts) require the Carrier Detect signal to read the actual\r\n"
  367.     lput "modem status.  Please adjust the modem accordingly; on the Hayes\r\n"
  368.     lput "SmartModem 1200, switch 6 should be UP. "
  369.     off
  370. xdnum:    cls
  371.     lput "Use 2400 Baud (y/n) ? "
  372.     speed 1200
  373.     if y speed 2400
  374.     lput "Use 300 Baud (y/n) ? "
  375.     if y speed 300
  376.     accept telno "Enter Telephone Number: "
  377.     gosub dial
  378.     sets s0 "%telno"
  379.     goto tele1
  380. glocal:    cls;  display nonlmode
  381.     lput "Use Port 2 (y/n) ?"
  382.     if y port 2
  383.     else port 1
  384.     gosub askspd
  385.     set s0 "Local"
  386. tele9:    echo "You are now Online to %s0."
  387.     echo "Type F1 when done."; t -Z!v
  388.     lput "\Ez Do you wish to disconnect (y/n) "
  389.     if y echo "Be Sure to reset the Modem Port"; gosub ak;  return
  390.     echo " **************  Rewinding the Capture Buffer  ************** "
  391.     rewind; wait -f1; goto tele9
  392. order    if forder display overstrike; page order; return
  393.  cls display overstrike
  394.  lput "ZCOMM Registration, Typeset Manual Pages, SNP, and update disk sells for $40.00.\r\n"
  395.  lput "                 (Add $10 if you wish a PC-size binder)\n"
  396.  lput "\r\n"
  397.  lput "       Send check to Omen Technology, PO Box 4681, Portland OR 97208\r\n"
  398.  lput "\r\n"
  399.  return
  400. baud    pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER"
  401.     pat 5 "CONNECT 1200\r\n"; pat 3 "CONNECT 2400\r\n"
  402.     pe-20
  403.     wait -Ef25
  404.     dis -E
  405.     if 1 speed 300 return
  406.     if 5 speed 1200 sleep 20 return
  407.     if 3 speed 2400 sleep 20 return
  408.     kill create -+ rings
  409.     close
  410.     fail
  411. : This assumes a Hayes compatible modem set for extended result messages
  412. ::
  413. :: Alternate dial script for Multi Tech 224 modem uses speed fallback.
  414. :: If the call is placed at > 300 bps, switch to 2400 bps.  Make the
  415. :: call.  If the called modem only supports 1200 or (ugh) 300 bps,
  416. :: the modem will drop back in speed.  The actual connect speed is indicated
  417. :: by a "CONNECT", "CONNECT 1200", or "CONNECT 2400" string.
  418. :: Fallback to 300 bps may be a bit messey, (depending on the answering
  419. :: modem, so a call originated at 300  bps will go out at that speed
  420. ::
  421. mm224    pat
  422.     if "%telno<2" echo "Please do not use \"call dial\""; abort
  423.     if "S>301" speed 2400
  424.     : if "S>301" if du speed 1200
  425.     pat 0 K\r\n; ena -d
  426.     if c bye
  427.     put "ATZ\r"; wait -f3; if !0 wait -f3
  428.     put "AT E1 Q0 V1\r"; wait -f3
  429.     if !0 echo "No response From MODEM"; fail
  430.     sleep 4
  431.     put "ATS6=3 X1 S8=1 S0=0\r" wait -f2
  432.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  433.     pat 5 "CONNECT 1200"; pat 0 "CONNECT 2400"
  434.     dis -d
  435.     put %mprefix; put %telno\r
  436.     wait -f60
  437.     while "4&&!L>3" wait -f20
  438.     if 1 speed 300 pat; return
  439.     if 5 speed 1200 pat; return
  440.     if 0 speed 2400 pat; return
  441.     pat; fail
  442.